home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / lttrgen.arc / MAILENTR.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.0 KB  |  32 lines
  1. NOTE - MAIL SYSTEM NAME AND ADDRESS ENTRY PROGRAM
  2. *
  3. *  - move pointer to bottom of MAIL.DBF
  4. GO BOTTOM
  5. *  - send output of @ commands to MAILFMT.FMT
  6. SET FORMAT TO MAILFMT
  7. *  - read name and address data 
  8. DO WHILE T
  9.   *  - initialize address variables to blank
  10.   STORE ' ' TO MTTL
  11.   STORE '  ' TO MSTATE
  12.   STORE '      ' TO MZIP
  13.   STORE '            ' TO MSNAM,MCITY
  14.   STORE '                    ' TO MGNAME
  15.   STORE '                              ' TO MOF,MADDR
  16.   *  - read format file
  17.   READ
  18.   *  - check to see if ready to exit this command file
  19.   IF MTTL=' '
  20.     RETURN
  21.   ENDIF
  22.   *  - combine first and last name and store 
  23.   STORE MSNAM+MGNAME TO MNAME
  24.   *  - add blank card to MAIL.DBF
  25.   APPEND BLANK
  26.   *  - store name and address data to MAIL.DBF
  27.   *  - substitute input variables for database file variables
  28.   REPLACE TITLE WITH &MTTL,NAME WITH MNAME,OF WITH MOF,ADDR WITH MADDR
  29.   REPLACE CITY WITH MCITY,STATE WITH !(MSTATE),ZIP WITH MZIP
  30. ENDDO
  31. RETURN
  32.